(other-frame) [windows-nt]: Use w32-focus-frame.

diff --git a/lisp/frame.el b/lisp/frame.el
index cd23db06c0854bf556b26358bcfa2a6904bc8272..96d103e1229d44de86ea1da2c85b06be1ad862e6 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -516,7 +516,10 @@ A negative ARG moves in the opposite order."
       (setq arg (1+ arg)))
     (raise-frame frame)
     (select-frame frame)
-    (set-mouse-position (selected-frame) (1- (frame-width)) 0)))
+    ;; Ensure, if possible, that frame gets input focus.
+    (if (eq window-system 'w32)
+       (w32-focus-frame frame)
+      (set-mouse-position (selected-frame) (1- (frame-width)) 0))))
 \f
 ;;;; Frame configurations